# Create simulated data
simulated_data <- tibble(
division = 1:151, # 151 seats in the House
party = sample(
x = c("Liberal", "Labor", "Nationals", "Greens", "Other"),
size = 151,
replace = TRUE
)
)
# Check the first few rows
head(simulated_data)# A tibble: 6 × 2
division party
<int> <chr>
1 1 Nationals
2 2 Greens
3 3 Greens
4 4 Liberal
5 5 Liberal
6 6 Nationals